use strict;
use warnings;

use Dogtanian;

command hello => sub {
	say 'Hello, World!';
};

match qr/\bbier\b/i => sub {
	say 'Bier? Ja Lekker! :)';
};

op_command goodbye => sub {
	say 'Goodbye, cruel world!';
};

op_command echo => sub {
	my $text = shift;
	say $text;
};
